/ BCI NET 2 / BCI NET 2.iso / archives / programming / source / a2.0bemacs-src.lha / Emacs-19.25 / lisp / debug.elc

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 3b 45 4c 43 13 00 00 00 | 0a 3b 3b 3b 20 63 6f 6d |;ELC....|.;;; com|
|00000010| 70 69 6c 65 64 20 62 79 | 20 6b 77 7a 68 40 68 61 |piled by| kwzh@ha|
|00000020| 6c 2e 67 6e 75 2e 61 69 | 2e 6d 69 74 2e 65 64 75 |l.gnu.ai|.mit.edu|
|00000030| 20 6f 6e 20 53 61 74 20 | 41 70 72 20 31 36 20 30 | on Sat |Apr 16 0|
|00000040| 33 3a 31 38 3a 34 35 20 | 31 39 39 34 0a 3b 3b 3b |3:18:45 |1994.;;;|
|00000050| 20 66 72 6f 6d 20 66 69 | 6c 65 20 2f 67 64 2f 67 | from fi|le /gd/g|
|00000060| 6e 75 2f 65 6d 61 63 73 | 2f 31 39 2e 30 2f 6c 69 |nu/emacs|/19.0/li|
|00000070| 73 70 2f 64 65 62 75 67 | 2e 65 6c 0a 3b 3b 3b 20 |sp/debug|.el.;;; |
|00000080| 65 6d 61 63 73 20 76 65 | 72 73 69 6f 6e 20 31 39 |emacs ve|rsion 19|
|00000090| 2e 32 32 2e 39 30 2e 31 | 2e 0a 3b 3b 3b 20 62 79 |.22.90.1|..;;; by|
|000000a0| 74 65 63 6f 6d 70 20 76 | 65 72 73 69 6f 6e 20 46 |tecomp v|ersion F|
|000000b0| 53 46 20 32 2e 31 30 0a | 3b 3b 3b 20 6f 70 74 69 |SF 2.10.|;;; opti|
|000000c0| 6d 69 7a 61 74 69 6f 6e | 20 69 73 20 6f 6e 2e 0a |mization| is on..|
|000000d0| 3b 3b 3b 20 74 68 69 73 | 20 66 69 6c 65 20 75 73 |;;; this| file us|
|000000e0| 65 73 20 6f 70 63 6f 64 | 65 73 20 77 68 69 63 68 |es opcod|es which|
|000000f0| 20 64 6f 20 6e 6f 74 20 | 65 78 69 73 74 20 69 6e | do not |exist in|
|00000100| 20 45 6d 61 63 73 20 31 | 38 2e 0a 0a 28 69 66 20 | Emacs 1|8...(if |
|00000110| 28 61 6e 64 20 28 62 6f | 75 6e 64 70 20 27 65 6d |(and (bo|undp 'em|
|00000120| 61 63 73 2d 76 65 72 73 | 69 6f 6e 29 0a 09 20 28 |acs-vers|ion).. (|
|00000130| 6f 72 20 28 61 6e 64 20 | 28 62 6f 75 6e 64 70 20 |or (and |(boundp |
|00000140| 27 65 70 6f 63 68 3a 3a | 76 65 72 73 69 6f 6e 29 |'epoch::|version)|
|00000150| 20 65 70 6f 63 68 3a 3a | 76 65 72 73 69 6f 6e 29 | epoch::|version)|
|00000160| 0a 09 20 20 20 20 20 28 | 73 74 72 69 6e 67 2d 6c |..     (|string-l|
|00000170| 65 73 73 70 20 65 6d 61 | 63 73 2d 76 65 72 73 69 |essp ema|cs-versi|
|00000180| 6f 6e 20 22 31 39 22 29 | 29 29 0a 20 20 20 20 28 |on "19")|)).    (|
|00000190| 65 72 72 6f 72 20 22 60 | 2f 67 64 2f 67 6e 75 2f |error "`|/gd/gnu/|
|000001a0| 65 6d 61 63 73 2f 31 39 | 2e 30 2f 6c 69 73 70 2f |emacs/19|.0/lisp/|
|000001b0| 64 65 62 75 67 2e 65 6c | 27 20 77 61 73 20 63 6f |debug.el|' was co|
|000001c0| 6d 70 69 6c 65 64 20 66 | 6f 72 20 45 6d 61 63 73 |mpiled f|or Emacs|
|000001d0| 20 31 39 22 29 29 0a 0a | 28 64 65 66 76 61 72 20 | 19"))..|(defvar |
|000001e0| 64 65 62 75 67 2d 66 75 | 6e 63 74 69 6f 6e 2d 6c |debug-fu|nction-l|
|000001f0| 69 73 74 20 6e 69 6c 20 | 22 5c 0a 4c 69 73 74 20 |ist nil |"\.List |
|00000200| 6f 66 20 66 75 6e 63 74 | 69 6f 6e 73 20 63 75 72 |of funct|ions cur|
|00000210| 72 65 6e 74 6c 79 20 73 | 65 74 20 66 6f 72 20 64 |rently s|et for d|
|00000220| 65 62 75 67 20 6f 6e 20 | 65 6e 74 72 79 2e 22 29 |ebug on |entry.")|
|00000230| 0a 28 62 79 74 65 2d 63 | 6f 64 65 20 22 c0 11 c0 |.(byte-c|ode "...|
|00000240| 87 22 20 5b 64 65 62 75 | 67 20 64 65 62 75 67 67 |." [debu|g debugg|
|00000250| 65 72 5d 20 31 29 0a 28 | 64 65 66 61 6c 69 61 73 |er] 1).(|defalias|
|00000260| 20 27 64 65 62 75 67 20 | 23 5b 28 26 72 65 73 74 | 'debug |#[(&rest|
|00000270| 20 64 65 62 75 67 67 65 | 72 2d 61 72 67 73 29 20 | debugge|r-args) |
|00000280| 22 c0 c1 21 88 c2 89 89 | c3 1c c5 c6 21 29 70 c2 |"..!....|....!)p.|
|00000290| 89 c7 20 0e 08 0e 09 0e | 5c 6e 0e 0b 0e 5c 66 0e |.. .....|\n...\f.|
|000002a0| 0d 0e 0e 0e 0f 0e 10 0e | 11 0e 12 0e 13 1e 14 1e |........|........|
|000002b0| 15 1e 16 1e 17 1e 18 1e | 19 1e 1a 1e 1b 1e 1c 1e |........|........|
|000002c0| 1d 1e 1e 1e 1f 1e 20 1e | 21 1e 5c 22 1e 23 1e 24 |...... .|!.\".#.$|
|000002d0| 1e 25 1e 26 1e 27 c2 89 | 89 e8 c2 89 89 89 89 e9 |.%.&.'..|........|
|000002e0| 89 c2 1e 13 1e 12 1e 11 | 1e 10 1e 0f 1e 0e 1e 0d |........|........|
|000002f0| 1e 5c 66 1e 0b 1e 08 1e | 5c 6e 1e 09 ea 8e 8a eb |.\f.....|\n......|
|00000300| 8b 88 2e 0e 0e 1f 16 08 | 0e 1e 16 09 0e 1d 16 5c |........|.......\|
|00000310| 6e 0e 1c 16 0b 0e 1b 16 | 5c 66 0e 1a 16 0d 0e 19 |n.......|\f......|
|00000320| 16 0e 0e 18 16 0f 0e 17 | 16 10 0e 16 16 11 0e 15 |........|........|
|00000330| 16 12 0e 14 16 13 0e 5c | 22 16 2c 0e 27 2e 14 87 |.......\|".,.'...|
|00000340| 22 20 5b 6d 65 73 73 61 | 67 65 20 22 45 6e 74 65 |" [messa|ge "Ente|
|00000350| 72 69 6e 67 20 64 65 62 | 75 67 67 65 72 2e 2e 2e |ring deb|ugger...|
|00000360| 22 20 6e 69 6c 20 66 75 | 6e 64 61 6d 65 6e 74 61 |" nil fu|ndamenta|
|00000370| 6c 2d 6d 6f 64 65 20 64 | 65 66 61 75 6c 74 2d 6d |l-mode d|efault-m|
|00000380| 61 6a 6f 72 2d 6d 6f 64 | 65 20 67 65 74 2d 62 75 |ajor-mod|e get-bu|
|00000390| 66 66 65 72 2d 63 72 65 | 61 74 65 20 22 2a 42 61 |ffer-cre|ate "*Ba|
|000003a0| 63 6b 74 72 61 63 65 2a | 22 20 6d 61 74 63 68 2d |cktrace*|" match-|
|000003b0| 64 61 74 61 20 74 72 61 | 63 6b 2d 6d 6f 75 73 65 |data tra|ck-mouse|
|000003c0| 20 6c 61 73 74 2d 63 6f | 6d 6d 61 6e 64 20 74 68 | last-co|mmand th|
|000003d0| 69 73 2d 63 6f 6d 6d 61 | 6e 64 20 75 6e 72 65 61 |is-comma|nd unrea|
|000003e0| 64 2d 63 6f 6d 6d 61 6e | 64 2d 63 68 61 72 20 75 |d-comman|d-char u|
|000003f0| 6e 72 65 61 64 2d 63 6f | 6d 6d 61 6e 64 2d 65 76 |nread-co|mmand-ev|
|00000400| 65 6e 74 73 20 6c 61 73 | 74 2d 69 6e 70 75 74 2d |ents las|t-input-|
|00000410| 65 76 65 6e 74 20 6c 61 | 73 74 2d 63 6f 6d 6d 61 |event la|st-comma|
|00000420| 6e 64 2d 65 76 65 6e 74 | 20 6c 61 73 74 2d 6e 6f |nd-event| last-no|
|00000430| 6e 6d 65 6e 75 2d 65 76 | 65 6e 74 20 6c 61 73 74 |nmenu-ev|ent last|
|00000440| 2d 65 76 65 6e 74 2d 66 | 72 61 6d 65 20 73 74 61 |-event-f|rame sta|
|00000450| 6e 64 61 72 64 2d 69 6e | 70 75 74 20 73 74 61 6e |ndard-in|put stan|
|00000460| 64 61 72 64 2d 6f 75 74 | 70 75 74 20 63 75 72 73 |dard-out|put curs|
|00000470| 6f 72 2d 69 6e 2d 65 63 | 68 6f 2d 61 72 65 61 20 |or-in-ec|ho-area |
|00000480| 64 65 62 75 67 67 65 72 | 2d 6f 75 74 65 72 2d 63 |debugger|-outer-c|
|00000490| 75 72 73 6f 72 2d 69 6e | 2d 65 63 68 6f 2d 61 72 |ursor-in|-echo-ar|
|000004a0| 65 61 20 64 65 62 75 67 | 67 65 72 2d 6f 75 74 65 |ea debug|ger-oute|
|000004b0| 72 2d 73 74 61 6e 64 61 | 72 64 2d 6f 75 74 70 75 |r-standa|rd-outpu|
|000004c0| 74 20 64 65 62 75 67 67 | 65 72 2d 6f 75 74 65 72 |t debugg|er-outer|
|000004d0| 2d 73 74 61 6e 64 61 72 | 64 2d 69 6e 70 75 74 20 |-standar|d-input |
|000004e0| 64 65 62 75 67 67 65 72 | 2d 6f 75 74 65 72 2d 6c |debugger|-outer-l|
|000004f0| 61 73 74 2d 65 76 65 6e | 74 2d 66 72 61 6d 65 20 |ast-even|t-frame |
|00000500| 64 65 62 75 67 67 65 72 | 2d 6f 75 74 65 72 2d 6c |debugger|-outer-l|
|00000510| 61 73 74 2d 6e 6f 6e 6d | 65 6e 75 2d 65 76 65 6e |ast-nonm|enu-even|
|00000520| 74 20 64 65 62 75 67 67 | 65 72 2d 6f 75 74 65 72 |t debugg|er-outer|
|00000530| 2d 6c 61 73 74 2d 63 6f | 6d 6d 61 6e 64 2d 65 76 |-last-co|mmand-ev|
|00000540| 65 6e 74 20 64 65 62 75 | 67 67 65 72 2d 6f 75 74 |ent debu|gger-out|
|00000550| 65 72 2d 6c 61 73 74 2d | 69 6e 70 75 74 2d 65 76 |er-last-|input-ev|
|00000560| 65 6e 74 20 64 65 62 75 | 67 67 65 72 2d 6f 75 74 |ent debu|gger-out|
|00000570| 65 72 2d 75 6e 72 65 61 | 64 2d 63 6f 6d 6d 61 6e |er-unrea|d-comman|
|00000580| 64 2d 65 76 65 6e 74 73 | 20 64 65 62 75 67 67 65 |d-events| debugge|
|00000590| 72 2d 6f 75 74 65 72 2d | 75 6e 72 65 61 64 2d 63 |r-outer-|unread-c|
|000005a0| 6f 6d 6d 61 6e 64 2d 63 | 68 61 72 20 64 65 62 75 |ommand-c|har debu|
|000005b0| 67 67 65 72 2d 6f 75 74 | 65 72 2d 74 68 69 73 2d |gger-out|er-this-|
|000005c0| 63 6f 6d 6d 61 6e 64 20 | 64 65 62 75 67 67 65 72 |command |debugger|
|000005d0| 2d 6f 75 74 65 72 2d 6c | 61 73 74 2d 63 6f 6d 6d |-outer-l|ast-comm|
|000005e0| 61 6e 64 20 64 65 62 75 | 67 67 65 72 2d 6f 75 74 |and debu|gger-out|
|000005f0| 65 72 2d 74 72 61 63 6b | 2d 6d 6f 75 73 65 20 64 |er-track|-mouse d|
|00000600| 65 62 75 67 67 65 72 2d | 6f 75 74 65 72 2d 6d 61 |ebugger-|outer-ma|
|00000610| 74 63 68 2d 64 61 74 61 | 20 65 78 65 63 75 74 69 |tch-data| executi|
|00000620| 6e 67 2d 6d 61 63 72 6f | 20 64 65 62 75 67 67 65 |ng-macro| debugge|
|00000630| 72 2d 73 74 65 70 2d 61 | 66 74 65 72 2d 65 78 69 |r-step-a|fter-exi|
|00000640| 74 20 64 65 62 75 67 67 | 65 72 2d 6f 6c 64 2d 62 |t debugg|er-old-b|
|00000650| 75 66 66 65 72 20 64 65 | 62 75 67 67 65 72 2d 62 |uffer de|bugger-b|
|00000660| 75 66 66 65 72 20 64 65 | 62 75 67 2d 6f 6e 2d 71 |uffer de|bug-on-q|
|00000670| 75 69 74 20 64 65 62 75 | 67 2d 6f 6e 2d 65 72 72 |uit debu|g-on-err|
|00000680| 6f 72 20 64 65 62 75 67 | 67 65 72 2d 76 61 6c 75 |or debug|ger-valu|
|00000690| 65 20 2d 31 20 74 20 28 | 28 62 79 74 65 2d 63 6f |e -1 t (|(byte-co|
|000006a0| 64 65 20 22 c0 09 c2 5c | 22 83 15 00 8a 09 71 88 |de "...\|".....q.|
|000006b0| c3 20 88 c4 20 88 29 82 | 19 00 c5 09 21 88 c6 0e |. .. .).|....!...|
|000006c0| 07 21 87 22 20 5b 67 65 | 74 2d 62 75 66 66 65 72 |.!." [ge|t-buffer|
|000006d0| 2d 77 69 6e 64 6f 77 20 | 64 65 62 75 67 67 65 72 |-window |debugger|
|000006e0| 2d 62 75 66 66 65 72 20 | 76 69 73 69 62 6c 65 20 |-buffer |visible |
|000006f0| 65 72 61 73 65 2d 62 75 | 66 66 65 72 20 66 75 6e |erase-bu|ffer fun|
|00000700| 64 61 6d 65 6e 74 61 6c | 2d 6d 6f 64 65 20 6b 69 |damental|-mode ki|
|00000710| 6c 6c 2d 62 75 66 66 65 | 72 20 73 74 6f 72 65 2d |ll-buffe|r store-|
|00000720| 6d 61 74 63 68 2d 64 61 | 74 61 20 64 65 62 75 67 |match-da|ta debug|
|00000730| 67 65 72 2d 6f 75 74 65 | 72 2d 6d 61 74 63 68 2d |ger-oute|r-match-|
|00000740| 64 61 74 61 5d 20 33 29 | 29 20 28 28 62 79 74 65 |data] 3)|) ((byte|
|00000750| 2d 63 6f 64 65 20 22 c0 | 09 21 88 c2 20 88 70 c3 |-code ".|.!.. .p.|
|00000760| c4 1d 1e 06 1e 07 c8 20 | 88 2b 65 62 88 c9 20 88 |....... |.+eb.. .|
|00000770| 60 ca cb 21 88 cc 79 88 | 60 7c 88 cd 20 88 0e 0e |`..!..y.|`|.. ...|
|00000780| 40 cf 3e 83 4c 00 d0 63 | 88 0e 0e 40 d1 3d 83 b1 |@.>.L..c|...@.=..|
|00000790| 00 d2 d3 c3 5c 22 88 d4 | cc 21 88 d5 63 88 d6 79 |....\"..|.!..c..y|
|000007a0| 88 82 b1 00 0e 0e 40 d7 | 3d 83 73 00 d8 63 88 0e |......@.|=.s..c..|
|000007b0| 0e 41 40 16 19 da 0e 19 | 70 5c 22 88 db 63 88 d4 |.A@.....|p\"..c..|
|000007c0| cc 21 88 dc 63 88 d6 79 | 88 82 b1 00 0e 0e 40 dd |.!..c..y|......@.|
|000007d0| 3d 83 8c 00 de 63 88 da | 0e 0e 41 40 70 5c 22 88 |=....c..|..A@p\".|
|000007e0| db 63 88 82 b1 00 0e 0e | 40 c3 3d 83 9a 00 df 63 |.c......|@.=....c|
|000007f0| 88 82 b1 00 da 0e 0e 40 | e0 3d 83 a9 00 0e 0e 41 |.......@|.=.....A|
|00000800| 82 ab 00 0e 0e 70 5c 22 | 88 db 63 88 e1 e2 21 88 |.....p\"|..c...!.|
|00000810| c3 e0 c3 1e 23 1e 07 1e | 24 e1 e2 21 88 e5 20 88 |....#...|$..!.. .|
|00000820| 2b e0 87 22 20 5b 70 6f | 70 2d 74 6f 2d 62 75 66 |+.." [po|p-to-buf|
|00000830| 66 65 72 20 64 65 62 75 | 67 67 65 72 2d 62 75 66 |fer debu|gger-buf|
|00000840| 66 65 72 20 65 72 61 73 | 65 2d 62 75 66 66 65 72 |fer eras|e-buffer|
|00000850| 20 74 20 35 30 20 70 72 | 69 6e 74 2d 6c 65 6e 67 | t 50 pr|int-leng|
|00000860| 74 68 20 70 72 69 6e 74 | 2d 65 73 63 61 70 65 2d |th print|-escape-|
|00000870| 6e 65 77 6c 69 6e 65 73 | 20 73 74 61 6e 64 61 72 |newlines| standar|
|00000880| 64 2d 6f 75 74 70 75 74 | 20 62 61 63 6b 74 72 61 |d-output| backtra|
|00000890| 63 65 20 64 65 62 75 67 | 67 65 72 2d 6d 6f 64 65 |ce debug|ger-mode|
|000008a0| 20 73 65 61 72 63 68 2d | 66 6f 72 77 61 72 64 20 | search-|forward |
|000008b0| 22 5c 6e 20 20 64 65 62 | 75 67 28 22 20 31 20 64 |"\n  deb|ug(" 1 d|
|000008c0| 65 62 75 67 67 65 72 2d | 72 65 65 6e 61 62 6c 65 |ebugger-|reenable|
|000008d0| 20 64 65 62 75 67 67 65 | 72 2d 61 72 67 73 20 28 | debugge|r-args (|
|000008e0| 6c 61 6d 62 64 61 20 64 | 65 62 75 67 29 20 22 45 |lambda d|ebug) "E|
|000008f0| 6e 74 65 72 69 6e 67 3a | 5c 6e 22 20 64 65 62 75 |ntering:|\n" debu|
|00000900| 67 20 62 61 63 6b 74 72 | 61 63 65 2d 64 65 62 75 |g backtr|ace-debu|
|00000910| 67 20 34 20 64 65 6c 65 | 74 65 2d 63 68 61 72 20 |g 4 dele|te-char |
|00000920| 34 32 20 30 20 65 78 69 | 74 20 22 52 65 74 75 72 |42 0 exi|t "Retur|
|00000930| 6e 20 76 61 6c 75 65 3a | 20 22 20 64 65 62 75 67 |n value:| " debug|
|00000940| 67 65 72 2d 76 61 6c 75 | 65 20 70 72 69 6e 31 20 |ger-valu|e prin1 |
|00000950| 31 30 20 33 32 20 65 72 | 72 6f 72 20 22 53 69 67 |10 32 er|ror "Sig|
|00000960| 6e 61 6c 6c 69 6e 67 3a | 20 22 20 22 42 65 67 69 |nalling:| " "Begi|
|00000970| 6e 6e 69 6e 67 20 65 76 | 61 6c 75 61 74 69 6f 6e |nning ev|aluation|
|00000980| 20 6f 66 20 66 75 6e 63 | 74 69 6f 6e 20 63 61 6c | of func|tion cal|
|00000990| 6c 20 66 6f 72 6d 3a 5c | 6e 22 20 6e 69 6c 20 6d |l form:\|n" nil m|
|000009a0| 65 73 73 61 67 65 20 22 | 22 20 62 75 66 66 65 72 |essage "|" buffer|
|000009b0| 2d 72 65 61 64 2d 6f 6e | 6c 79 20 69 6e 68 69 62 |-read-on|ly inhib|
|000009c0| 69 74 2d 74 72 61 63 65 | 20 72 65 63 75 72 73 69 |it-trace| recursi|
|000009d0| 76 65 2d 65 64 69 74 5d | 20 33 29 29 20 64 65 62 |ve-edit]| 3)) deb|
|000009e0| 75 67 2d 6f 6e 2d 6e 65 | 78 74 2d 63 61 6c 6c 5d |ug-on-ne|xt-call]|
|000009f0| 20 32 30 20 22 5c 0a 45 | 6e 74 65 72 20 64 65 62 | 20 "\.E|nter deb|
|00000a00| 75 67 67 65 72 2e 20 20 | 54 6f 20 72 65 74 75 72 |ugger.  |To retur|
|00000a10| 6e 2c 20 74 79 70 65 20 | 5c 5c 3c 64 65 62 75 67 |n, type |\\<debug|
|00000a20| 67 65 72 2d 6d 6f 64 65 | 2d 6d 61 70 3e 60 5c 5c |ger-mode|-map>`\\|
|00000a30| 5b 64 65 62 75 67 67 65 | 72 2d 63 6f 6e 74 69 6e |[debugge|r-contin|
|00000a40| 75 65 5d 27 2e 0a 41 72 | 67 75 6d 65 6e 74 73 20 |ue]'..Ar|guments |
|00000a50| 61 72 65 20 6d 61 69 6e | 6c 79 20 66 6f 72 20 75 |are main|ly for u|
|00000a60| 73 65 20 77 68 65 6e 20 | 74 68 69 73 20 69 73 20 |se when |this is |
|00000a70| 63 61 6c 6c 65 64 20 66 | 72 6f 6d 20 74 68 65 20 |called f|rom the |
|00000a80| 69 6e 74 65 72 6e 61 6c | 73 0a 6f 66 20 74 68 65 |internal|s.of the|
|00000a90| 20 65 76 61 6c 75 61 74 | 6f 72 2e 0a 0a 59 6f 75 | evaluat|or...You|
|00000aa0| 20 6d 61 79 20 63 61 6c | 6c 20 77 69 74 68 20 6e | may cal|l with n|
|00000ab0| 6f 20 61 72 67 73 2c 20 | 6f 72 20 79 6f 75 20 6d |o args, |or you m|
|00000ac0| 61 79 20 70 61 73 73 20 | 6e 69 6c 20 61 73 20 74 |ay pass |nil as t|
|00000ad0| 68 65 20 66 69 72 73 74 | 20 61 72 67 20 61 6e 64 |he first| arg and|
|00000ae0| 0a 61 6e 79 20 6f 74 68 | 65 72 20 61 72 67 73 20 |.any oth|er args |
|00000af0| 79 6f 75 20 6c 69 6b 65 | 2e 20 20 49 6e 20 74 68 |you like|.  In th|
|00000b00| 61 74 20 63 61 73 65 2c | 20 74 68 65 20 6c 69 73 |at case,| the lis|
|00000b10| 74 20 6f 66 20 61 72 67 | 73 20 61 66 74 65 72 20 |t of arg|s after |
|00000b20| 74 68 65 0a 66 69 72 73 | 74 20 77 69 6c 6c 20 62 |the.firs|t will b|
|00000b30| 65 20 70 72 69 6e 74 65 | 64 20 69 6e 74 6f 20 74 |e printe|d into t|
|00000b40| 68 65 20 62 61 63 6b 74 | 72 61 63 65 20 62 75 66 |he backt|race buf|
|00000b50| 66 65 72 2e 22 5d 29 0a | 28 64 65 66 61 6c 69 61 |fer."]).|(defalia|
|00000b60| 73 20 27 64 65 62 75 67 | 67 65 72 2d 73 74 65 70 |s 'debug|ger-step|
|00000b70| 2d 74 68 72 6f 75 67 68 | 20 23 5b 6e 69 6c 20 22 |-through| #[nil "|
|00000b80| c0 11 c2 c3 21 88 c4 20 | 87 22 20 5b 74 20 64 65 |....!.. |." [t de|
|00000b90| 62 75 67 67 65 72 2d 73 | 74 65 70 2d 61 66 74 65 |bugger-s|tep-afte|
|00000ba0| 72 2d 65 78 69 74 20 6d | 65 73 73 61 67 65 20 22 |r-exit m|essage "|
|00000bb0| 50 72 6f 63 65 65 64 69 | 6e 67 2c 20 77 69 6c 6c |Proceedi|ng, will|
|00000bc0| 20 64 65 62 75 67 20 6f | 6e 20 6e 65 78 74 20 65 | debug o|n next e|
|00000bd0| 76 61 6c 20 6f 72 20 63 | 61 6c 6c 2e 22 20 65 78 |val or c|all." ex|
|00000be0| 69 74 2d 72 65 63 75 72 | 73 69 76 65 2d 65 64 69 |it-recur|sive-edi|
|00000bf0| 74 5d 20 32 20 22 5c 0a | 50 72 6f 63 65 65 64 2c |t] 2 "\.|Proceed,|
|00000c00| 20 73 74 65 70 70 69 6e | 67 20 74 68 72 6f 75 67 | steppin|g throug|
|00000c10| 68 20 73 75 62 65 78 70 | 72 65 73 73 69 6f 6e 73 |h subexp|ressions|
|00000c20| 20 6f 66 20 74 68 69 73 | 20 65 78 70 72 65 73 73 | of this| express|
|00000c30| 69 6f 6e 2e 0a 45 6e 74 | 65 72 20 61 6e 6f 74 68 |ion..Ent|er anoth|
|00000c40| 65 72 20 64 65 62 75 67 | 67 65 72 20 6f 6e 20 6e |er debug|ger on n|
|00000c50| 65 78 74 20 65 6e 74 72 | 79 20 74 6f 20 65 76 61 |ext entr|y to eva|
|00000c60| 6c 2c 20 61 70 70 6c 79 | 20 6f 72 20 66 75 6e 63 |l, apply| or func|
|00000c70| 61 6c 6c 2e 22 20 6e 69 | 6c 5d 29 0a 28 64 65 66 |all." ni|l]).(def|
|00000c80| 61 6c 69 61 73 20 27 64 | 65 62 75 67 67 65 72 2d |alias 'd|ebugger-|
|00000c90| 63 6f 6e 74 69 6e 75 65 | 20 23 5b 6e 69 6c 20 22 |continue| #[nil "|
|00000ca0| c0 c1 21 88 c2 20 87 22 | 20 5b 6d 65 73 73 61 67 |..!.. ."| [messag|
|00000cb0| 65 20 22 43 6f 6e 74 69 | 6e 75 69 6e 67 2e 22 20 |e "Conti|nuing." |
|00000cc0| 65 78 69 74 2d 72 65 63 | 75 72 73 69 76 65 2d 65 |exit-rec|ursive-e|
|00000cd0| 64 69 74 5d 20 32 20 22 | 5c 0a 43 6f 6e 74 69 6e |dit] 2 "|\.Contin|
|00000ce0| 75 65 2c 20 65 76 61 6c | 75 61 74 69 6e 67 20 74 |ue, eval|uating t|
|00000cf0| 68 69 73 20 65 78 70 72 | 65 73 73 69 6f 6e 20 77 |his expr|ession w|
|00000d00| 69 74 68 6f 75 74 20 73 | 74 6f 70 70 69 6e 67 2e |ithout s|topping.|
|00000d10| 22 20 6e 69 6c 5d 29 0a | 28 64 65 66 61 6c 69 61 |" nil]).|(defalia|
|00000d20| 73 20 27 64 65 62 75 67 | 67 65 72 2d 72 65 74 75 |s 'debug|ger-retu|
|00000d30| 72 6e 2d 76 61 6c 75 65 | 20 23 5b 28 76 61 6c 29 |rn-value| #[(val)|
|00000d40| 20 22 08 11 c2 c3 c4 5c | 22 88 c5 09 21 88 c6 20 | ".....\|"...!.. |
|00000d50| 87 22 20 5b 76 61 6c 20 | 64 65 62 75 67 67 65 72 |." [val |debugger|
|00000d60| 2d 76 61 6c 75 65 20 70 | 72 69 6e 63 20 22 52 65 |-value p|rinc "Re|
|00000d70| 74 75 72 6e 69 6e 67 20 | 22 20 74 20 70 72 69 6e |turning |" t prin|
|00000d80| 31 20 65 78 69 74 2d 72 | 65 63 75 72 73 69 76 65 |1 exit-r|ecursive|
|00000d90| 2d 65 64 69 74 5d 20 33 | 20 22 5c 0a 43 6f 6e 74 |-edit] 3| "\.Cont|
|00000da0| 69 6e 75 65 2c 20 73 70 | 65 63 69 66 79 69 6e 67 |inue, sp|ecifying|
|00000db0| 20 76 61 6c 75 65 20 74 | 6f 20 72 65 74 75 72 6e | value t|o return|
|00000dc0| 2e 0a 54 68 69 73 20 69 | 73 20 6f 6e 6c 79 20 75 |..This i|s only u|
|00000dd0| 73 65 66 75 6c 20 77 68 | 65 6e 20 74 68 65 20 76 |seful wh|en the v|
|00000de0| 61 6c 75 65 20 72 65 74 | 75 72 6e 65 64 20 66 72 |alue ret|urned fr|
|00000df0| 6f 6d 20 74 68 65 20 64 | 65 62 75 67 67 65 72 0a |om the d|ebugger.|
|00000e00| 77 69 6c 6c 20 62 65 20 | 75 73 65 64 2c 20 73 75 |will be |used, su|
|00000e10| 63 68 20 61 73 20 69 6e | 20 61 20 64 65 62 75 67 |ch as in| a debug|
|00000e20| 20 6f 6e 20 65 78 69 74 | 20 66 72 6f 6d 20 61 20 | on exit| from a |
|00000e30| 66 72 61 6d 65 2e 22 20 | 22 58 52 65 74 75 72 6e |frame." |"XReturn|
|00000e40| 20 76 61 6c 75 65 20 28 | 65 76 61 6c 75 61 74 65 | value (|evaluate|
|00000e50| 64 29 3a 20 22 5d 29 0a | 28 64 65 66 61 6c 69 61 |d): "]).|(defalia|
|00000e60| 73 20 27 64 65 62 75 67 | 67 65 72 2d 6a 75 6d 70 |s 'debug|ger-jump|
|00000e70| 20 23 5b 6e 69 6c 20 22 | 08 c1 5c 5c 18 c2 20 88 | #[nil "|..\\.. .|
|00000e80| 29 0b 89 1c 83 21 00 5c | 66 40 c5 5c 66 40 5c 66 |)....!.\|f@.\f@\f|
|00000e90| 40 4b c6 23 4d 88 5c 66 | 41 89 14 84 0e 00 29 c7 |@K.#M.\f|A.....).|
|00000ea0| c8 21 88 c9 20 87 22 20 | 5b 64 65 62 75 67 67 65 |.!.. ." |[debugge|
|00000eb0| 72 2d 66 72 61 6d 65 2d | 6f 66 66 73 65 74 20 32 |r-frame-|offset 2|
|00000ec0| 20 64 65 62 75 67 67 65 | 72 2d 66 72 61 6d 65 20 | debugge|r-frame |
|00000ed0| 64 65 62 75 67 2d 66 75 | 6e 63 74 69 6f 6e 2d 6c |debug-fu|nction-l|
|00000ee0| 69 73 74 20 6c 69 73 74 | 20 64 65 62 75 67 2d 6f |ist list| debug-o|
|00000ef0| 6e 2d 65 6e 74 72 79 2d | 31 20 6e 69 6c 20 6d 65 |n-entry-|1 nil me|
|00000f00| 73 73 61 67 65 20 22 43 | 6f 6e 74 69 6e 75 69 6e |ssage "C|ontinuin|
|00000f10| 67 20 74 68 72 6f 75 67 | 68 20 74 68 69 73 20 66 |g throug|h this f|
|00000f20| 72 61 6d 65 22 20 65 78 | 69 74 2d 72 65 63 75 72 |rame" ex|it-recur|
|00000f30| 73 69 76 65 2d 65 64 69 | 74 5d 20 36 20 22 5c 0a |sive-edi|t] 6 "\.|
|00000f40| 43 6f 6e 74 69 6e 75 65 | 20 74 6f 20 65 78 69 74 |Continue| to exit|
|00000f50| 20 66 72 6f 6d 20 74 68 | 69 73 20 66 72 61 6d 65 | from th|is frame|
|00000f60| 2c 20 77 69 74 68 20 61 | 6c 6c 20 64 65 62 75 67 |, with a|ll debug|
|00000f70| 2d 6f 6e 2d 65 6e 74 72 | 79 20 73 75 73 70 65 6e |-on-entr|y suspen|
|00000f80| 64 65 64 2e 22 20 6e 69 | 6c 5d 29 0a 28 64 65 66 |ded." ni|l]).(def|
|00000f90| 61 6c 69 61 73 20 27 64 | 65 62 75 67 67 65 72 2d |alias 'd|ebugger-|
|00000fa0| 72 65 65 6e 61 62 6c 65 | 20 23 5b 6e 69 6c 20 22 |reenable| #[nil "|
|00000fb0| 08 89 19 85 26 00 09 40 | 4b 3a 84 12 00 c2 09 40 |....&..@|K:.....@|
|00000fc0| 21 88 09 40 c3 09 40 09 | 40 4b c4 23 4d 88 09 41 |!..@..@.|@K.#M..A|
|00000fd0| 89 11 84 06 00 c5 29 87 | 22 20 5b 64 65 62 75 67 |......).|" [debug|
|00000fe0| 2d 66 75 6e 63 74 69 6f | 6e 2d 6c 69 73 74 20 6c |-functio|n-list l|
|00000ff0| 69 73 74 20 64 65 62 75 | 67 2d 63 6f 6e 76 65 72 |ist debu|g-conver|
|00001000| 74 2d 62 79 74 65 2d 63 | 6f 64 65 20 64 65 62 75 |t-byte-c|ode debu|
|00001010| 67 2d 6f 6e 2d 65 6e 74 | 72 79 2d 31 20 74 20 6e |g-on-ent|ry-1 t n|
|00001020| 69 6c 5d 20 36 20 22 5c | 0a 54 75 72 6e 20 61 6c |il] 6 "\|.Turn al|
|00001030| 6c 20 64 65 62 75 67 2d | 6f 6e 2d 65 6e 74 72 79 |l debug-|on-entry|
|00001040| 20 66 75 6e 63 74 69 6f | 6e 73 20 62 61 63 6b 20 | functio|ns back |
|00001050| 6f 6e 2e 22 5d 29 0a 28 | 64 65 66 61 6c 69 61 73 |on."]).(|defalias|
|00001060| 20 27 64 65 62 75 67 67 | 65 72 2d 66 72 61 6d 65 | 'debugg|er-frame|
|00001070| 2d 6e 75 6d 62 65 72 20 | 23 5b 6e 69 6c 20 22 8a |-number |#[nil ".|
|00001080| c0 79 88 60 c0 19 1a 65 | 62 88 60 60 c3 5c 5c 7b |.y.`...e|b.``.\\{|
|00001090| c4 9a 84 1f 00 60 60 c3 | 5c 5c 7b c5 9a 83 27 00 |.....``.|\\{...'.|
|000010a0| c6 c7 21 88 c8 c9 21 88 | c9 79 88 ca 75 88 67 cb |..!...!.|.y..u.g.|
|000010b0| 55 83 3a 00 c8 c9 21 88 | 82 3e 00 c8 ca 21 88 c9 |U.:...!.|.>...!..|
|000010c0| 79 88 60 5c 6e 58 83 4d | 00 09 54 11 82 2a 00 09 |y.`\nX.M|..T..*..|
|000010d0| 2b 87 22 20 5b 30 20 63 | 6f 75 6e 74 20 6f 70 6f |+." [0 c|ount opo|
|000010e0| 69 6e 74 20 36 20 22 53 | 69 67 6e 61 6c 22 20 22 |int 6 "S|ignal" "|
|000010f0| 52 65 74 75 72 6e 22 20 | 73 65 61 72 63 68 2d 66 |Return" |search-f|
|00001100| 6f 72 77 61 72 64 20 22 | 3a 22 20 66 6f 72 77 61 |orward "|:" forwa|
|00001110| 72 64 2d 73 65 78 70 20 | 31 20 32 20 34 30 5d 20 |rd-sexp |1 2 40] |
|00001120| 33 20 22 5c 0a 52 65 74 | 75 72 6e 20 6e 75 6d 62 |3 "\.Ret|urn numb|
|00001130| 65 72 20 6f 66 20 66 72 | 61 6d 65 73 20 69 6e 20 |er of fr|ames in |
|00001140| 62 61 63 6b 74 72 61 63 | 65 20 62 65 66 6f 72 65 |backtrac|e before|
|00001150| 20 74 68 65 20 6f 6e 65 | 20 70 6f 69 6e 74 20 70 | the one| point p|
|00001160| 6f 69 6e 74 73 20 61 74 | 2e 22 5d 29 0a 28 64 65 |oints at|."]).(de|
|00001170| 66 63 6f 6e 73 74 20 64 | 65 62 75 67 67 65 72 2d |fconst d|ebugger-|
|00001180| 66 72 61 6d 65 2d 6f 66 | 66 73 65 74 20 38 20 22 |frame-of|fset 8 "|
|00001190| 5c 0a 22 29 0a 28 64 65 | 66 61 6c 69 61 73 20 27 |\.").(de|falias '|
|000011a0| 64 65 62 75 67 67 65 72 | 2d 66 72 61 6d 65 20 23 |debugger|-frame #|
|000011b0| 5b 6e 69 6c 20 22 c0 79 | 88 c1 20 1a c3 5c 6e 5c |[nil ".y|.. ..\n\|
|000011c0| 66 5c 5c c5 5c 22 88 29 | 67 c6 55 83 1f 00 c7 1e |f\\.\".)|g.U.....|
|000011d0| 08 c9 ca 21 88 cb 63 88 | 29 c0 79 88 c7 87 22 20 |...!..c.|).y..." |
|000011e0| 5b 30 20 64 65 62 75 67 | 67 65 72 2d 66 72 61 6d |[0 debug|ger-fram|
|000011f0| 65 2d 6e 75 6d 62 65 72 | 20 6c 65 76 65 6c 20 62 |e-number| level b|
|00001200| 61 63 6b 74 72 61 63 65 | 2d 64 65 62 75 67 20 64 |acktrace|-debug d|
|00001210| 65 62 75 67 67 65 72 2d | 66 72 61 6d 65 2d 6f 66 |ebugger-|frame-of|
|00001220| 66 73 65 74 20 74 20 33 | 32 20 6e 69 6c 20 62 75 |fset t 3|2 nil bu|
|00001230| 66 66 65 72 2d 72 65 61 | 64 2d 6f 6e 6c 79 20 64 |ffer-rea|d-only d|
|00001240| 65 6c 65 74 65 2d 63 68 | 61 72 20 31 20 34 32 5d |elete-ch|ar 1 42]|
|00001250| 20 33 20 22 5c 0a 52 65 | 71 75 65 73 74 20 65 6e | 3 "\.Re|quest en|
|00001260| 74 72 79 20 74 6f 20 64 | 65 62 75 67 67 65 72 20 |try to d|ebugger |
|00001270| 77 68 65 6e 20 74 68 69 | 73 20 66 72 61 6d 65 20 |when thi|s frame |
|00001280| 65 78 69 74 73 2e 0a 41 | 70 70 6c 69 65 73 20 74 |exits..A|pplies t|
|00001290| 6f 20 74 68 65 20 66 72 | 61 6d 65 20 77 68 6f 73 |o the fr|ame whos|
|000012a0| 65 20 6c 69 6e 65 20 70 | 6f 69 6e 74 20 69 73 20 |e line p|oint is |
|000012b0| 6f 6e 20 69 6e 20 74 68 | 65 20 62 61 63 6b 74 72 |on in th|e backtr|
|000012c0| 61 63 65 2e 22 20 6e 69 | 6c 5d 29 0a 28 64 65 66 |ace." ni|l]).(def|
|000012d0| 61 6c 69 61 73 20 27 64 | 65 62 75 67 67 65 72 2d |alias 'd|ebugger-|
|000012e0| 66 72 61 6d 65 2d 63 6c | 65 61 72 20 23 5b 6e 69 |frame-cl|ear #[ni|
|000012f0| 6c 20 22 c0 79 88 c1 20 | 1a c3 5c 6e 5c 66 5c 5c |l ".y.. |..\n\f\\|
|00001300| c5 5c 22 88 29 67 c6 55 | 83 1f 00 c5 1e 07 c8 c9 |.\".)g.U|........|
|00001310| 21 88 ca 63 88 29 c0 79 | 88 c5 87 22 20 5b 30 20 |!..c.).y|..." [0 |
|00001320| 64 65 62 75 67 67 65 72 | 2d 66 72 61 6d 65 2d 6e |debugger|-frame-n|
|00001330| 75 6d 62 65 72 20 6c 65 | 76 65 6c 20 62 61 63 6b |umber le|vel back|
|00001340| 74 72 61 63 65 2d 64 65 | 62 75 67 20 64 65 62 75 |trace-de|bug debu|
|00001350| 67 67 65 72 2d 66 72 61 | 6d 65 2d 6f 66 66 73 65 |gger-fra|me-offse|
|00001360| 74 20 6e 69 6c 20 34 32 | 20 62 75 66 66 65 72 2d |t nil 42| buffer-|
|00001370| 72 65 61 64 2d 6f 6e 6c | 79 20 64 65 6c 65 74 65 |read-onl|y delete|
|00001380| 2d 63 68 61 72 20 31 20 | 33 32 5d 20 33 20 22 5c |-char 1 |32] 3 "\|
|00001390| 0a 44 6f 20 6e 6f 74 20 | 65 6e 74 65 72 20 74 6f |.Do not |enter to|
|000013a0| 20 64 65 62 75 67 67 65 | 72 20 77 68 65 6e 20 74 | debugge|r when t|
|000013b0| 68 69 73 20 66 72 61 6d | 65 20 65 78 69 74 73 2e |his fram|e exits.|
|000013c0| 0a 41 70 70 6c 69 65 73 | 20 74 6f 20 74 68 65 20 |.Applies| to the |
|000013d0| 66 72 61 6d 65 20 77 68 | 6f 73 65 20 6c 69 6e 65 |frame wh|ose line|
|000013e0| 20 70 6f 69 6e 74 20 69 | 73 20 6f 6e 20 69 6e 20 | point i|s on in |
|000013f0| 74 68 65 20 62 61 63 6b | 74 72 61 63 65 2e 22 20 |the back|trace." |
|00001400| 6e 69 6c 5d 29 0a 28 64 | 65 66 61 6c 69 61 73 20 |nil]).(d|efalias |
|00001410| 27 64 65 62 75 67 67 65 | 72 2d 65 76 61 6c 2d 65 |'debugge|r-eval-e|
|00001420| 78 70 72 65 73 73 69 6f | 6e 20 23 5b 28 65 78 70 |xpressio|n #[(exp|
|00001430| 29 20 22 8a c0 09 21 84 | 09 00 70 11 09 71 88 5c |) "...!.|..p..q.\|
|00001440| 6e 0b 5c 66 0d 0e 06 0e | 07 0e 08 0e 09 0e 5c 6e |n.\f....|......\n|
|00001450| 0e 0b 0e 5c 66 0e 0d 1e | 0e 1e 0f 1e 10 1e 11 1e |...\f...|........|
|00001460| 12 1e 13 1e 14 1e 15 1e | 16 1e 17 1e 18 1e 19 da |........|........|
|00001470| 0e 1b 21 88 dc 0e 1d 21 | de 20 16 1b 0e 19 12 0e |..!....!|. ......|
|00001480| 18 13 0e 17 14 0e 16 15 | 0e 15 16 06 0e 14 16 07 |........|........|
|00001490| 0e 13 16 08 0e 12 16 09 | 0e 11 16 5c 6e 0e 10 16 |........|...\n...|
|000014a0| 0b 0e 0f 16 5c 66 0e 0e | 16 0d 2e 0d 87 22 20 5b |....\f..|....." [|
|000014b0| 62 75 66 66 65 72 2d 6e | 61 6d 65 20 64 65 62 75 |buffer-n|ame debu|
|000014c0| 67 67 65 72 2d 6f 6c 64 | 2d 62 75 66 66 65 72 20 |gger-old|-buffer |
|000014d0| 64 65 62 75 67 67 65 72 | 2d 6f 75 74 65 72 2d 74 |debugger|-outer-t|
|000014e0| 72 61 63 6b 2d 6d 6f 75 | 73 65 20 64 65 62 75 67 |rack-mou|se debug|
|000014f0| 67 65 72 2d 6f 75 74 65 | 72 2d 6c 61 73 74 2d 63 |ger-oute|r-last-c|
|00001500| 6f 6d 6d 61 6e 64 20 64 | 65 62 75 67 67 65 72 2d |ommand d|ebugger-|
|00001510| 6f 75 74 65 72 2d 74 68 | 69 73 2d 63 6f 6d 6d 61 |outer-th|is-comma|
|00001520| 6e 64 20 64 65 62 75 67 | 67 65 72 2d 6f 75 74 65 |nd debug|ger-oute|
|00001530| 72 2d 75 6e 72 65 61 64 | 2d 63 6f 6d 6d 61 6e 64 |r-unread|-command|
|00001540| 2d 63 68 61 72 20 64 65 | 62 75 67 67 65 72 2d 6f |-char de|bugger-o|
|00001550| 75 74 65 72 2d 75 6e 72 | 65 61 64 2d 63 6f 6d 6d |uter-unr|ead-comm|
|00001560| 61 6e 64 2d 65 76 65 6e | 74 73 20 64 65 62 75 67 |and-even|ts debug|
|00001570| 67 65 72 2d 6f 75 74 65 | 72 2d 6c 61 73 74 2d 69 |ger-oute|r-last-i|
|00001580| 6e 70 75 74 2d 65 76 65 | 6e 74 20 64 65 62 75 67 |nput-eve|nt debug|
|00001590| 67 65 72 2d 6f 75 74 65 | 72 2d 6c 61 73 74 2d 63 |ger-oute|r-last-c|
|000015a0| 6f 6d 6d 61 6e 64 2d 65 | 76 65 6e 74 20 64 65 62 |ommand-e|vent deb|
|000015b0| 75 67 67 65 72 2d 6f 75 | 74 65 72 2d 6c 61 73 74 |ugger-ou|ter-last|
|000015c0| 2d 6e 6f 6e 6d 65 6e 75 | 2d 65 76 65 6e 74 20 64 |-nonmenu|-event d|
|000015d0| 65 62 75 67 67 65 72 2d | 6f 75 74 65 72 2d 6c 61 |ebugger-|outer-la|
|000015e0| 73 74 2d 65 76 65 6e 74 | 2d 66 72 61 6d 65 20 64 |st-event|-frame d|
|000015f0| 65 62 75 67 67 65 72 2d | 6f 75 74 65 72 2d 73 74 |ebugger-|outer-st|
|00001600| 61 6e 64 61 72 64 2d 69 | 6e 70 75 74 20 64 65 62 |andard-i|nput deb|
|00001610| 75 67 67 65 72 2d 6f 75 | 74 65 72 2d 73 74 61 6e |ugger-ou|ter-stan|
|00001620| 64 61 72 64 2d 6f 75 74 | 70 75 74 20 64 65 62 75 |dard-out|put debu|
|00001630| 67 67 65 72 2d 6f 75 74 | 65 72 2d 63 75 72 73 6f |gger-out|er-curso|
|00001640| 72 2d 69 6e 2d 65 63 68 | 6f 2d 61 72 65 61 20 63 |r-in-ech|o-area c|
|00001650| 75 72 73 6f 72 2d 69 6e | 2d 65 63 68 6f 2d 61 72 |ursor-in|-echo-ar|
|00001660| 65 61 20 73 74 61 6e 64 | 61 72 64 2d 6f 75 74 70 |ea stand|ard-outp|
|00001670| 75 74 20 73 74 61 6e 64 | 61 72 64 2d 69 6e 70 75 |ut stand|ard-inpu|
|00001680| 74 20 6c 61 73 74 2d 65 | 76 65 6e 74 2d 66 72 61 |t last-e|vent-fra|
|00001690| 6d 65 20 6c 61 73 74 2d | 6e 6f 6e 6d 65 6e 75 2d |me last-|nonmenu-|
|000016a0| 65 76 65 6e 74 20 6c 61 | 73 74 2d 63 6f 6d 6d 61 |event la|st-comma|
|000016b0| 6e 64 2d 65 76 65 6e 74 | 20 6c 61 73 74 2d 69 6e |nd-event| last-in|
|000016c0| 70 75 74 2d 65 76 65 6e | 74 20 75 6e 72 65 61 64 |put-even|t unread|
|000016d0| 2d 63 6f 6d 6d 61 6e 64 | 2d 65 76 65 6e 74 73 20 |-command|-events |
|000016e0| 75 6e 72 65 61 64 2d 63 | 6f 6d 6d 61 6e 64 2d 63 |unread-c|ommand-c|
|000016f0| 68 61 72 20 74 68 69 73 | 2d 63 6f 6d 6d 61 6e 64 |har this|-command|
|00001700| 20 6c 61 73 74 2d 63 6f | 6d 6d 61 6e 64 20 74 72 | last-co|mmand tr|
|00001710| 61 63 6b 2d 6d 6f 75 73 | 65 20 73 74 6f 72 65 2d |ack-mous|e store-|
|00001720| 6d 61 74 63 68 2d 64 61 | 74 61 20 64 65 62 75 67 |match-da|ta debug|
|00001730| 67 65 72 2d 6f 75 74 65 | 72 2d 6d 61 74 63 68 2d |ger-oute|r-match-|
|00001740| 64 61 74 61 20 65 76 61 | 6c 2d 65 78 70 72 65 73 |data eva|l-expres|
|00001750| 73 69 6f 6e 20 65 78 70 | 20 6d 61 74 63 68 2d 64 |sion exp| match-d|
|00001760| 61 74 61 5d 20 31 32 20 | 22 5c 0a 45 76 61 6c 20 |ata] 12 |"\.Eval |
|00001770| 61 6e 20 65 78 70 72 65 | 73 73 69 6f 6e 2c 20 69 |an expre|ssion, i|
|00001780| 6e 20 61 6e 20 65 6e 76 | 69 72 6f 6e 6d 65 6e 74 |n an env|ironment|
|00001790| 20 6c 69 6b 65 20 74 68 | 61 74 20 6f 75 74 73 69 | like th|at outsi|
|000017a0| 64 65 20 74 68 65 20 64 | 65 62 75 67 67 65 72 2e |de the d|ebugger.|
|000017b0| 22 20 28 6c 69 73 74 20 | 28 72 65 61 64 2d 66 72 |" (list |(read-fr|
|000017c0| 6f 6d 2d 6d 69 6e 69 62 | 75 66 66 65 72 20 22 45 |om-minib|uffer "E|
|000017d0| 76 61 6c 3a 20 22 20 6e | 69 6c 20 72 65 61 64 2d |val: " n|il read-|
|000017e0| 65 78 70 72 65 73 73 69 | 6f 6e 2d 6d 61 70 20 74 |expressi|on-map t|
|000017f0| 20 28 71 75 6f 74 65 20 | 72 65 61 64 2d 65 78 70 | (quote |read-exp|
|00001800| 72 65 73 73 69 6f 6e 2d | 68 69 73 74 6f 72 79 29 |ression-|history)|
|00001810| 29 29 5d 29 0a 28 62 79 | 74 65 2d 63 6f 64 65 20 |))]).(by|te-code |
|00001820| 22 c0 c1 21 84 08 00 c2 | 11 09 84 5e 00 c3 1c c5 |"..!....|...^....|
|00001830| 20 11 c6 09 21 88 c7 09 | c8 c9 23 88 c7 09 ca cb | ...!...|..#.....|
|00001840| 23 88 c7 09 cc cd 23 88 | c7 09 ce cf 23 88 c7 09 |#.....#.|....#...|
|00001850| d0 d1 23 88 c7 09 d2 d3 | 23 88 c7 09 d4 d5 23 88 |..#.....|#.....#.|
|00001860| c7 09 d6 d7 23 88 c7 09 | d8 d9 23 88 c7 09 da db |....#...|..#.....|
|00001870| 23 88 c7 09 dc dd 23 88 | c7 09 de df 23 88 29 e0 |#.....#.|....#.).|
|00001880| e1 e2 e3 23 87 22 20 5b | 62 6f 75 6e 64 70 20 64 |...#." [|boundp d|
|00001890| 65 62 75 67 67 65 72 2d | 6d 6f 64 65 2d 6d 61 70 |ebugger-|mode-map|
|000018a0| 20 6e 69 6c 20 33 32 20 | 6c 6f 6f 70 20 6d 61 6b | nil 32 |loop mak|
|000018b0| 65 2d 6b 65 79 6d 61 70 | 20 73 75 70 70 72 65 73 |e-keymap| suppres|
|000018c0| 73 2d 6b 65 79 6d 61 70 | 20 64 65 66 69 6e 65 2d |s-keymap| define-|
|000018d0| 6b 65 79 20 22 2d 22 20 | 6e 65 67 61 74 69 76 65 |key "-" |negative|
|000018e0| 2d 61 72 67 75 6d 65 6e | 74 20 22 62 22 20 64 65 |-argumen|t "b" de|
|000018f0| 62 75 67 67 65 72 2d 66 | 72 61 6d 65 20 22 63 22 |bugger-f|rame "c"|
|00001900| 20 64 65 62 75 67 67 65 | 72 2d 63 6f 6e 74 69 6e | debugge|r-contin|
|00001910| 75 65 20 22 6a 22 20 64 | 65 62 75 67 67 65 72 2d |ue "j" d|ebugger-|
|00001920| 6a 75 6d 70 20 22 72 22 | 20 64 65 62 75 67 67 65 |jump "r"| debugge|
|00001930| 72 2d 72 65 74 75 72 6e | 2d 76 61 6c 75 65 20 22 |r-return|-value "|
|00001940| 75 22 20 64 65 62 75 67 | 67 65 72 2d 66 72 61 6d |u" debug|ger-fram|
|00001950| 65 2d 63 6c 65 61 72 20 | 22 64 22 20 64 65 62 75 |e-clear |"d" debu|
|00001960| 67 67 65 72 2d 73 74 65 | 70 2d 74 68 72 6f 75 67 |gger-ste|p-throug|
|00001970| 68 20 22 6c 22 20 64 65 | 62 75 67 67 65 72 2d 6c |h "l" de|bugger-l|
|00001980| 69 73 74 2d 66 75 6e 63 | 74 69 6f 6e 73 20 22 68 |ist-func|tions "h|
|00001990| 22 20 64 65 73 63 72 69 | 62 65 2d 6d 6f 64 65 20 |" descri|be-mode |
|000019a0| 22 71 22 20 74 6f 70 2d | 6c 65 76 65 6c 20 22 65 |"q" top-|level "e|
|000019b0| 22 20 64 65 62 75 67 67 | 65 72 2d 65 76 61 6c 2d |" debugg|er-eval-|
|000019c0| 65 78 70 72 65 73 73 69 | 6f 6e 20 22 20 22 20 6e |expressi|on " " n|
|000019d0| 65 78 74 2d 6c 69 6e 65 | 20 70 75 74 20 64 65 62 |ext-line| put deb|
|000019e0| 75 67 67 65 72 2d 6d 6f | 64 65 20 6d 6f 64 65 2d |ugger-mo|de mode-|
|000019f0| 63 6c 61 73 73 20 73 70 | 65 63 69 61 6c 5d 20 34 |class sp|ecial] 4|
|00001a00| 29 0a 28 64 65 66 61 6c | 69 61 73 20 27 64 65 62 |).(defal|ias 'deb|
|00001a10| 75 67 67 65 72 2d 6d 6f | 64 65 20 23 5b 6e 69 6c |ugger-mo|de #[nil|
|00001a20| 20 22 c0 20 88 c1 12 c3 | 14 c5 16 06 c7 0e 08 21 | ". ....|.......!|
|00001a30| 88 c9 0e 5c 6e 21 87 22 | 20 5b 6b 69 6c 6c 2d 61 |...\n!."| [kill-a|
|00001a40| 6c 6c 2d 6c 6f 63 61 6c | 2d 76 61 72 69 61 62 6c |ll-local|-variabl|
|00001a50| 65 73 20 64 65 62 75 67 | 67 65 72 2d 6d 6f 64 65 |es debug|ger-mode|
|00001a60| 20 6d 61 6a 6f 72 2d 6d | 6f 64 65 20 22 44 65 62 | major-m|ode "Deb|
|00001a70| 75 67 67 65 72 22 20 6d | 6f 64 65 2d 6e 61 6d 65 |ugger" m|ode-name|
|00001a80| 20 74 20 74 72 75 6e 63 | 61 74 65 2d 6c 69 6e 65 | t trunc|ate-line|
|00001a90| 73 20 73 65 74 2d 73 79 | 6e 74 61 78 2d 74 61 62 |s set-sy|ntax-tab|
|00001aa0| 6c 65 20 65 6d 61 63 73 | 2d 6c 69 73 70 2d 6d 6f |le emacs|-lisp-mo|
|00001ab0| 64 65 2d 73 79 6e 74 61 | 78 2d 74 61 62 6c 65 20 |de-synta|x-table |
|00001ac0| 75 73 65 2d 6c 6f 63 61 | 6c 2d 6d 61 70 20 64 65 |use-loca|l-map de|
|00001ad0| 62 75 67 67 65 72 2d 6d | 6f 64 65 2d 6d 61 70 5d |bugger-m|ode-map]|
|00001ae0| 20 32 20 22 5c 0a 4d 6f | 64 65 20 66 6f 72 20 62 | 2 "\.Mo|de for b|
|00001af0| 61 63 6b 74 72 61 63 65 | 20 62 75 66 66 65 72 73 |acktrace| buffers|
|00001b00| 2c 20 73 65 6c 65 63 74 | 65 64 20 69 6e 20 64 65 |, select|ed in de|
|00001b10| 62 75 67 67 65 72 2e 0a | 5c 5c 3c 64 65 62 75 67 |bugger..|\\<debug|
|00001b20| 67 65 72 2d 6d 6f 64 65 | 2d 6d 61 70 3e 0a 41 20 |ger-mode|-map>.A |
|00001b30| 6c 69 6e 65 20 73 74 61 | 72 74 73 20 77 69 74 68 |line sta|rts with|
|00001b40| 20 60 2a 27 20 69 66 20 | 65 78 69 74 69 6e 67 20 | `*' if |exiting |
|00001b50| 74 68 61 74 20 66 72 61 | 6d 65 20 77 69 6c 6c 20 |that fra|me will |
|00001b60| 63 61 6c 6c 20 74 68 65 | 20 64 65 62 75 67 67 65 |call the| debugge|
|00001b70| 72 2e 0a 54 79 70 65 20 | 5c 5c 5b 64 65 62 75 67 |r..Type |\\[debug|
|00001b80| 67 65 72 2d 66 72 61 6d | 65 5d 20 6f 72 20 5c 5c |ger-fram|e] or \\|
|00001b90| 5b 64 65 62 75 67 67 65 | 72 2d 66 72 61 6d 65 2d |[debugge|r-frame-|
|00001ba0| 63 6c 65 61 72 5d 20 74 | 6f 20 73 65 74 20 6f 72 |clear] t|o set or|
|00001bb0| 20 72 65 6d 6f 76 65 20 | 74 68 65 20 60 2a 27 2e | remove |the `*'.|
|00001bc0| 0a 0a 57 68 65 6e 20 69 | 6e 20 64 65 62 75 67 67 |..When i|n debugg|
|00001bd0| 65 72 20 64 75 65 20 74 | 6f 20 66 72 61 6d 65 20 |er due t|o frame |
|00001be0| 62 65 69 6e 67 20 65 78 | 69 74 65 64 2c 0a 75 73 |being ex|ited,.us|
|00001bf0| 65 20 74 68 65 20 5c 5c | 5b 64 65 62 75 67 67 65 |e the \\|[debugge|
|00001c00| 72 2d 72 65 74 75 72 6e | 2d 76 61 6c 75 65 5d 20 |r-return|-value] |
|00001c10| 63 6f 6d 6d 61 6e 64 20 | 74 6f 20 6f 76 65 72 72 |command |to overr|
|00001c20| 69 64 65 20 74 68 65 20 | 76 61 6c 75 65 0a 62 65 |ide the |value.be|
|00001c30| 69 6e 67 20 72 65 74 75 | 72 6e 65 64 20 66 72 6f |ing retu|rned fro|
|00001c40| 6d 20 74 68 61 74 20 66 | 72 61 6d 65 2e 0a 0a 55 |m that f|rame...U|
|00001c50| 73 65 20 5c 5c 5b 64 65 | 62 75 67 2d 6f 6e 2d 65 |se \\[de|bug-on-e|
|00001c60| 6e 74 72 79 5d 20 61 6e | 64 20 5c 5c 5b 63 61 6e |ntry] an|d \\[can|
|00001c70| 63 65 6c 2d 64 65 62 75 | 67 2d 6f 6e 2d 65 6e 74 |cel-debu|g-on-ent|
|00001c80| 72 79 5d 20 74 6f 20 63 | 6f 6e 74 72 6f 6c 0a 77 |ry] to c|ontrol.w|
|00001c90| 68 69 63 68 20 66 75 6e | 63 74 69 6f 6e 73 20 77 |hich fun|ctions w|
|00001ca0| 69 6c 6c 20 65 6e 74 65 | 72 20 74 68 65 20 64 65 |ill ente|r the de|
|00001cb0| 62 75 67 67 65 72 20 77 | 68 65 6e 20 63 61 6c 6c |bugger w|hen call|
|00001cc0| 65 64 2e 0a 0a 43 6f 6d | 70 6c 65 74 65 20 6c 69 |ed...Com|plete li|
|00001cd0| 73 74 20 6f 66 20 63 6f | 6d 6d 61 6e 64 73 3a 0a |st of co|mmands:.|
|00001ce0| 5c 5c 7b 64 65 62 75 67 | 67 65 72 2d 6d 6f 64 65 |\\{debug|ger-mode|
|00001cf0| 2d 6d 61 70 7d 22 5d 29 | 0a 28 64 65 66 61 6c 69 |-map}"])|.(defali|
|00001d00| 61 73 20 27 64 65 62 75 | 67 2d 6f 6e 2d 65 6e 74 |as 'debu|g-on-ent|
|00001d10| 72 79 20 23 5b 28 66 75 | 6e 63 74 69 6f 6e 29 20 |ry #[(fu|nction) |
|00001d20| 22 c0 20 88 c1 5c 6e 4b | 21 83 0f 00 c3 c4 5c 6e |". ..\nK|!.....\n|
|00001d30| 5c 22 88 5c 6e 4b 3a 84 | 19 00 c5 5c 6e 21 88 5c |\".\nK:.|...\n!.\|
|00001d40| 6e 4b 3a 84 24 00 c3 c6 | 5c 6e 5c 22 88 5c 6e c7 |nK:.$...|\n\".\n.|
|00001d50| 5c 6e 89 4b c8 23 4d 88 | 5c 6e 0e 09 3e 84 3a 00 |\n.K.#M.|\n..>.:.|
|00001d60| 5c 6e 0e 09 42 16 09 5c | 6e 87 22 20 5b 64 65 62 |\n..B..\|n." [deb|
|00001d70| 75 67 67 65 72 2d 72 65 | 65 6e 61 62 6c 65 20 73 |ugger-re|enable s|
|00001d80| 75 62 72 70 20 66 75 6e | 63 74 69 6f 6e 20 65 72 |ubrp fun|ction er|
|00001d90| 72 6f 72 20 22 46 75 6e | 63 74 69 6f 6e 20 25 73 |ror "Fun|ction %s|
|00001da0| 20 69 73 20 61 20 70 72 | 69 6d 69 74 69 76 65 22 | is a pr|imitive"|
|00001db0| 20 64 65 62 75 67 2d 63 | 6f 6e 76 65 72 74 2d 62 | debug-c|onvert-b|
|00001dc0| 79 74 65 2d 63 6f 64 65 | 20 22 44 65 66 69 6e 69 |yte-code| "Defini|
|00001dd0| 74 69 6f 6e 20 6f 66 20 | 25 73 20 69 73 20 6e 6f |tion of |%s is no|
|00001de0| 74 20 61 20 6c 69 73 74 | 22 20 64 65 62 75 67 2d |t a list|" debug-|
|00001df0| 6f 6e 2d 65 6e 74 72 79 | 2d 31 20 74 20 64 65 62 |on-entry|-1 t deb|
|00001e00| 75 67 2d 66 75 6e 63 74 | 69 6f 6e 2d 6c 69 73 74 |ug-funct|ion-list|
|00001e10| 5d 20 35 20 22 5c 0a 52 | 65 71 75 65 73 74 20 46 |] 5 "\.R|equest F|
|00001e20| 55 4e 43 54 49 4f 4e 20 | 74 6f 20 69 6e 76 6f 6b |UNCTION |to invok|
|00001e30| 65 20 64 65 62 75 67 67 | 65 72 20 65 61 63 68 20 |e debugg|er each |
|00001e40| 74 69 6d 65 20 69 74 20 | 69 73 20 63 61 6c 6c 65 |time it |is calle|
|00001e50| 64 2e 0a 49 66 20 79 6f | 75 20 74 65 6c 6c 20 74 |d..If yo|u tell t|
|00001e60| 68 65 20 64 65 62 75 67 | 67 65 72 20 74 6f 20 63 |he debug|ger to c|
|00001e70| 6f 6e 74 69 6e 75 65 2c | 20 46 55 4e 43 54 49 4f |ontinue,| FUNCTIO|
|00001e80| 4e 27 73 20 65 78 65 63 | 75 74 69 6f 6e 20 70 72 |N's exec|ution pr|
|00001e90| 6f 63 65 65 64 73 2e 0a | 54 68 69 73 20 77 6f 72 |oceeds..|This wor|
|00001ea0| 6b 73 20 62 79 20 6d 6f | 64 69 66 79 69 6e 67 20 |ks by mo|difying |
|00001eb0| 74 68 65 20 64 65 66 69 | 6e 69 74 69 6f 6e 20 6f |the defi|nition o|
|00001ec0| 66 20 46 55 4e 43 54 49 | 4f 4e 2c 0a 77 68 69 63 |f FUNCTI|ON,.whic|
|00001ed0| 68 20 6d 75 73 74 20 62 | 65 20 77 72 69 74 74 65 |h must b|e writte|
|00001ee0| 6e 20 69 6e 20 4c 69 73 | 70 2c 20 6e 6f 74 20 70 |n in Lis|p, not p|
|00001ef0| 72 65 64 65 66 69 6e 65 | 64 2e 0a 55 73 65 20 5c |redefine|d..Use \|
|00001f00| 5c 5b 63 61 6e 63 65 6c | 2d 64 65 62 75 67 2d 6f |\[cancel|-debug-o|
|00001f10| 6e 2d 65 6e 74 72 79 5d | 20 74 6f 20 63 61 6e 63 |n-entry]| to canc|
|00001f20| 65 6c 20 74 68 65 20 65 | 66 66 65 63 74 20 6f 66 |el the e|ffect of|
|00001f30| 20 74 68 69 73 20 63 6f | 6d 6d 61 6e 64 2e 0a 52 | this co|mmand..R|
|00001f40| 65 64 65 66 69 6e 69 6e | 67 20 46 55 4e 43 54 49 |edefinin|g FUNCTI|
|00001f50| 4f 4e 20 61 6c 73 6f 20 | 63 61 6e 63 65 6c 73 20 |ON also |cancels |
|00001f60| 69 74 2e 22 20 22 61 44 | 65 62 75 67 20 6f 6e 20 |it." "aD|ebug on |
|00001f70| 65 6e 74 72 79 20 28 74 | 6f 20 66 75 6e 63 74 69 |entry (t|o functi|
|00001f80| 6f 6e 29 3a 20 22 5d 29 | 0a 28 64 65 66 61 6c 69 |on): "])|.(defali|
|00001f90| 61 73 20 27 63 61 6e 63 | 65 6c 2d 64 65 62 75 67 |as 'canc|el-debug|
|00001fa0| 2d 6f 6e 2d 65 6e 74 72 | 79 20 23 5b 28 26 6f 70 |-on-entr|y #[(&op|
|00001fb0| 74 69 6f 6e 61 6c 20 66 | 75 6e 63 74 69 6f 6e 29 |tional f|unction)|
|00001fc0| 20 22 c0 20 88 09 83 1f | 00 09 c2 98 84 1f 00 09 | ". ....|........|
|00001fd0| c3 09 89 4b c4 23 4d 88 | c5 09 0e 06 5c 22 16 06 |...K.#M.|....\"..|
|00001fe0| 09 87 c7 c8 21 88 c9 ca | 0e 06 5c 22 87 22 20 5b |....!...|..\"." [|
|00001ff0| 64 65 62 75 67 67 65 72 | 2d 72 65 65 6e 61 62 6c |debugger|-reenabl|
|00002000| 65 20 66 75 6e 63 74 69 | 6f 6e 20 22 22 20 64 65 |e functi|on "" de|
|00002010| 62 75 67 2d 6f 6e 2d 65 | 6e 74 72 79 2d 31 20 6e |bug-on-e|ntry-1 n|
|00002020| 69 6c 20 64 65 6c 71 20 | 64 65 62 75 67 2d 66 75 |il delq |debug-fu|
|00002030| 6e 63 74 69 6f 6e 2d 6c | 69 73 74 20 6d 65 73 73 |nction-l|ist mess|
|00002040| 61 67 65 20 22 43 61 6e | 63 65 6c 6c 69 6e 67 20 |age "Can|celling |
|00002050| 64 65 62 75 67 2d 6f 6e | 2d 65 6e 74 72 79 20 66 |debug-on|-entry f|
|00002060| 6f 72 20 61 6c 6c 20 66 | 75 6e 63 74 69 6f 6e 73 |or all f|unctions|
|00002070| 22 20 6d 61 70 63 61 72 | 20 63 61 6e 63 65 6c 2d |" mapcar| cancel-|
|00002080| 64 65 62 75 67 2d 6f 6e | 2d 65 6e 74 72 79 5d 20 |debug-on|-entry] |
|00002090| 35 20 22 5c 0a 55 6e 64 | 6f 20 65 66 66 65 63 74 |5 "\.Und|o effect|
|000020a0| 20 6f 66 20 5c 5c 5b 64 | 65 62 75 67 2d 6f 6e 2d | of \\[d|ebug-on-|
|000020b0| 65 6e 74 72 79 5d 20 6f | 6e 20 46 55 4e 43 54 49 |entry] o|n FUNCTI|
|000020c0| 4f 4e 2e 0a 49 66 20 61 | 72 67 75 6d 65 6e 74 20 |ON..If a|rgument |
|000020d0| 69 73 20 6e 69 6c 20 6f | 72 20 61 6e 20 65 6d 70 |is nil o|r an emp|
|000020e0| 74 79 20 73 74 72 69 6e | 67 2c 20 63 61 6e 63 65 |ty strin|g, cance|
|000020f0| 6c 20 66 6f 72 20 61 6c | 6c 20 66 75 6e 63 74 69 |l for al|l functi|
|00002100| 6f 6e 73 2e 22 20 28 6c | 69 73 74 20 28 6c 65 74 |ons." (l|ist (let|
|00002110| 20 28 28 6e 61 6d 65 20 | 28 63 6f 6d 70 6c 65 74 | ((name |(complet|
|00002120| 69 6e 67 2d 72 65 61 64 | 20 22 43 61 6e 63 65 6c |ing-read| "Cancel|
|00002130| 20 64 65 62 75 67 20 6f | 6e 20 65 6e 74 72 79 20 | debug o|n entry |
|00002140| 28 74 6f 20 66 75 6e 63 | 74 69 6f 6e 29 3a 20 22 |(to func|tion): "|
|00002150| 20 28 6d 61 70 63 61 72 | 20 28 71 75 6f 74 65 20 | (mapcar| (quote |
|00002160| 6c 69 73 74 29 20 28 6d | 61 70 63 61 72 20 28 71 |list) (m|apcar (q|
|00002170| 75 6f 74 65 20 73 79 6d | 62 6f 6c 2d 6e 61 6d 65 |uote sym|bol-name|
|00002180| 29 20 64 65 62 75 67 2d | 66 75 6e 63 74 69 6f 6e |) debug-|function|
|00002190| 2d 6c 69 73 74 29 29 20 | 6e 69 6c 20 74 20 6e 69 |-list)) |nil t ni|
|000021a0| 6c 29 29 29 20 28 69 66 | 20 6e 61 6d 65 20 28 69 |l))) (if| name (i|
|000021b0| 6e 74 65 72 6e 20 6e 61 | 6d 65 29 29 29 29 5d 29 |ntern na|me))))])|
|000021c0| 0a 28 62 79 74 65 2d 63 | 6f 64 65 20 22 c0 c1 c2 |.(byte-c|ode "...|
|000021d0| 5c 22 88 c0 c3 c4 5c 22 | 87 22 20 5b 64 65 66 61 |\"....\"|." [defa|
|000021e0| 6c 69 61 73 20 64 65 62 | 75 67 2d 63 6f 6e 76 65 |lias deb|ug-conve|
|000021f0| 72 74 2d 62 79 74 65 2d | 63 6f 64 65 20 23 5b 28 |rt-byte-|code #[(|
|00002200| 66 75 6e 63 74 69 6f 6e | 29 20 22 08 4b 89 19 3a |function|) ".K..:|
|00002210| 3f 85 44 00 c2 09 c3 5c | 22 1c c5 5c 66 41 40 c6 |?.D....\|"..\fA@.|
|00002220| 5c 66 38 c7 5c 66 38 46 | 43 1e 08 c9 5c 66 9b 83 |\f8.\f8F|C...\f..|
|00002230| 2c 00 ca c9 5c 66 38 44 | 0e 08 42 16 08 cb 5c 66 |,...\f8D|..B...\f|
|00002240| 38 83 3a 00 cb 5c 66 38 | 0e 08 42 16 08 08 cc 5c |8.:..\f8|..B....\|
|00002250| 66 40 0e 08 42 42 4d 2a | 29 87 22 20 5b 66 75 6e |f@..BBM*|)." [fun|
|00002260| 63 74 69 6f 6e 20 64 65 | 66 6e 20 61 70 70 65 6e |ction de|fn appen|
|00002270| 64 20 6e 69 6c 20 63 6f | 6e 74 65 6e 74 73 20 62 |d nil co|ntents b|
|00002280| 79 74 65 2d 63 6f 64 65 | 20 32 20 33 20 62 6f 64 |yte-code| 2 3 bod|
|00002290| 79 20 35 20 69 6e 74 65 | 72 61 63 74 69 76 65 20 |y 5 inte|ractive |
|000022a0| 34 20 6c 61 6d 62 64 61 | 5d 20 36 5d 20 64 65 62 |4 lambda|] 6] deb|
|000022b0| 75 67 2d 6f 6e 2d 65 6e | 74 72 79 2d 31 20 23 5b |ug-on-en|try-1 #[|
|000022c0| 28 66 75 6e 63 74 69 6f | 6e 20 64 65 66 6e 20 66 |(functio|n defn f|
|000022d0| 6c 61 67 29 20 22 c0 09 | 21 83 0b 00 c2 c3 5c 66 |lag) "..|!.....\f|
|000022e0| 5c 22 87 09 40 c5 3d 83 | 1a 00 c6 5c 66 09 41 0e |\"..@.=.|...\f.A.|
|000022f0| 07 23 87 09 40 c8 3d 84 | 26 00 c2 c9 5c 66 5c 22 |.#..@.=.|&...\f\"|
|00002300| 88 ca 89 1e 0b 1e 5c 66 | 09 41 41 40 3b 83 48 00 |......\f|.AA@;.H.|
|00002310| cd 09 9b 16 5c 66 09 40 | 09 41 40 09 41 41 40 45 |....\f.@|.A@.AA@E|
|00002320| 16 0b 82 55 00 09 41 41 | 16 5c 66 09 40 09 41 40 |...U..AA|.\f.@.A@|
|00002330| 44 16 0b 0e 07 0e 5c 66 | 40 ce 9a 3d 83 64 00 09 |D.....\f|@..=.d..|
|00002340| 82 79 00 0e 07 83 73 00 | 0e 0b cf 0e 5c 66 42 a4 |.y....s.|....\fB.|
|00002350| 82 79 00 0e 0b 0e 5c 66 | 41 a4 2a 87 22 20 5b 73 |.y....\f|A.*." [s|
|00002360| 75 62 72 70 20 64 65 66 | 6e 20 65 72 72 6f 72 20 |ubrp def|n error |
|00002370| 22 25 73 20 69 73 20 61 | 20 62 75 69 6c 74 2d 69 |"%s is a| built-i|
|00002380| 6e 20 66 75 6e 63 74 69 | 6f 6e 22 20 66 75 6e 63 |n functi|on" func|
|00002390| 74 69 6f 6e 20 6d 61 63 | 72 6f 20 64 65 62 75 67 |tion mac|ro debug|
|000023a0| 2d 6f 6e 2d 65 6e 74 72 | 79 2d 31 20 66 6c 61 67 |-on-entr|y-1 flag|
|000023b0| 20 6c 61 6d 62 64 61 20 | 22 25 73 20 6e 6f 74 20 | lambda |"%s not |
|000023c0| 75 73 65 72 2d 64 65 66 | 69 6e 65 64 20 4c 69 73 |user-def|ined Lis|
|000023d0| 70 20 66 75 6e 63 74 69 | 6f 6e 22 20 6e 69 6c 20 |p functi|on" nil |
|000023e0| 70 72 65 63 20 74 61 69 | 6c 20 33 20 28 64 65 62 |prec tai|l 3 (deb|
|000023f0| 75 67 20 28 71 75 6f 74 | 65 20 64 65 62 75 67 29 |ug (quot|e debug)|
|00002400| 29 20 28 64 65 62 75 67 | 20 28 71 75 6f 74 65 20 |) (debug| (quote |
|00002410| 64 65 62 75 67 29 29 5d | 20 34 5d 5d 20 33 29 0a |debug))]| 4]] 3).|
|00002420| 28 64 65 66 61 6c 69 61 | 73 20 27 64 65 62 75 67 |(defalia|s 'debug|
|00002430| 67 65 72 2d 6c 69 73 74 | 2d 66 75 6e 63 74 69 6f |ger-list|-functio|
|00002440| 6e 73 20 23 5b 6e 69 6c | 20 22 c0 90 09 84 5c 66 |ns #[nil| "....\f|
|00002450| 00 c2 c3 21 82 2d 00 c2 | c4 21 88 09 89 1d 83 25 |...!.-..|.!.....%|
|00002460| 00 c6 0d 40 21 88 c7 20 | 88 0d 41 89 15 84 16 00 |...@!.. |..A.....|
|00002470| 29 c2 c8 21 88 c2 c9 21 | 91 87 22 20 5b 22 2a 48 |)..!...!|.." ["*H|
|00002480| 65 6c 70 2a 22 20 64 65 | 62 75 67 2d 66 75 6e 63 |elp*" de|bug-func|
|00002490| 74 69 6f 6e 2d 6c 69 73 | 74 20 70 72 69 6e 63 20 |tion-lis|t princ |
|000024a0| 22 4e 6f 20 64 65 62 75 | 67 2d 6f 6e 2d 65 6e 74 |"No debu|g-on-ent|
|000024b0| 72 79 20 66 75 6e 63 74 | 69 6f 6e 73 20 6e 6f 77 |ry funct|ions now|
|000024c0| 5c 6e 22 20 22 46 75 6e | 63 74 69 6f 6e 73 20 73 |\n" "Fun|ctions s|
|000024d0| 65 74 20 74 6f 20 64 65 | 62 75 67 20 6f 6e 20 65 |et to de|bug on e|
|000024e0| 6e 74 72 79 3a 5c 6e 5c | 6e 22 20 6c 69 73 74 20 |ntry:\n\|n" list |
|000024f0| 70 72 69 6e 31 20 74 65 | 72 70 72 69 20 22 4e 6f |prin1 te|rpri "No|
|00002500| 74 65 3a 20 69 66 20 79 | 6f 75 20 68 61 76 65 20 |te: if y|ou have |
|00002510| 72 65 64 65 66 69 6e 65 | 64 20 61 20 66 75 6e 63 |redefine|d a func|
|00002520| 74 69 6f 6e 2c 20 74 68 | 65 6e 20 69 74 20 6d 61 |tion, th|en it ma|
|00002530| 79 20 6e 6f 20 6c 6f 6e | 67 65 72 5c 6e 22 20 22 |y no lon|ger\n" "|
|00002540| 62 65 20 73 65 74 20 74 | 6f 20 64 65 62 75 67 20 |be set t|o debug |
|00002550| 6f 6e 20 65 6e 74 72 79 | 2c 20 65 76 65 6e 20 69 |on entry|, even i|
|00002560| 66 20 69 74 20 69 73 20 | 69 6e 20 74 68 65 20 6c |f it is |in the l|
|00002570| 69 73 74 2e 22 5d 20 34 | 20 22 5c 0a 44 69 73 70 |ist."] 4| "\.Disp|
|00002580| 6c 61 79 20 61 20 6c 69 | 73 74 20 6f 66 20 61 6c |lay a li|st of al|
|00002590| 6c 20 74 68 65 20 66 75 | 6e 63 74 69 6f 6e 73 20 |l the fu|nctions |
|000025a0| 6e 6f 77 20 73 65 74 20 | 74 6f 20 64 65 62 75 67 |now set |to debug|
|000025b0| 20 6f 6e 20 65 6e 74 72 | 79 2e 22 20 6e 69 6c 5d | on entr|y." nil]|
|000025c0| 29 0a                   |                         |).      |        |
+--------+-------------------------+-------------------------+--------+--------+